﻿Imports BUS
Imports DTO

Public Class frmDoiMatKhau

    Private Sub btnThoat_Click(sender As Object, e As EventArgs) Handles btnThoat.Click
        Me.Close()

    End Sub

    Private Sub btnDongY_Click(sender As Object, e As EventArgs) Handles btnDongY.Click
        Dim pq As PhanQuyenNhonNDDTO = ChucNangBUS.layQuyenCuaND(frmMain.maND, 8)
        If pq.Sua = True Then
            If txtPassMoi.Text <> txtPassNhapLai.Text Then
                DevExpress.XtraEditors.XtraMessageBox.Show("Mật khẩu nhập lại không giống mật khẩu mới", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Else
                If NguoiDungBUS.ktMatKhau(txtPassCu.Text, frmMain.maND) = -1 Then
                    DevExpress.XtraEditors.XtraMessageBox.Show("Mật khẩu củ không chính xác", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                Else
                    If NguoiDungBUS.doiMatKhau(txtPassMoi.Text, frmMain.maND) > 0 Then
                        DevExpress.XtraEditors.XtraMessageBox.Show("Đổi Mật Khẩu Thành Công", "Thông Báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        HeThongBUS.themNhatKy(frmMain.maND, "Hệ Thống", "Đổi Mật Khẩu", "Người dùng " + frmMain.maND + " đổi mật khẩu")
                    Else
                        DevExpress.XtraEditors.XtraMessageBox.Show("Đổi mật khẩu không thành công", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                    End If

                End If
            End If
        Else
            DevExpress.XtraEditors.XtraMessageBox.Show("Bạn không có quyền thay đổi mật khẩu", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
       
    End Sub
End Class